home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 4 / 64er_Magazin_Sonderheft_04_86-04_1986_Markt__Technik_de_Disk_1_of_2_Side_A.d64 / listing 03.a (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  679b  |  26 lines
  1. 800 rem lesen --------------------
  2. 805 ifve<>16then900
  3. 810 ifo1=8andob(8)=-1thensb=80
  4. 900 :
  5. 2000 rem raumspezifische action ------------------------------------------------
  6. 2010 on zn goto 2100,2200,2300,2400
  7. 2100 rem glaskuppel
  8. 2110 ifve<>15oro1<>2then2120
  9. 2115 ifpa(0)<3thensb=71:pa(0)=pa(0)+1
  10. 2117 ifpa(0)=2thensb=73:ob(8)=zn:ob(9)=zn:ob(10)=1
  11. 2119 ifpa(0)=3thensb=72
  12. 2120 ifve=1ando1=3thenri=1:goto300
  13. 2130 goto100
  14. 2200 rem tunnel
  15. 2210 goto100
  16. 2300 rem kristallgrotte
  17. 2305 ifve=17ando1=6andou(6)=113thensb=119:ou(6)=135:goto2307
  18. 2306 ifve=17ando1=6andou(6)=135thenprint"[197]s passiert nichts."
  19. 2307 ifve<>12oro1<>7then2310
  20. 2308 ifou(6)=113thensb=110
  21. 2309 ifou(6)=135thensb=139:oa(7)=3:ob(7)=-1:ob(11)=3:map(3,3)=4:ox(7)=0
  22. 2310 ifve=1ando1=3thenri=3:goto300
  23. 2320 goto100
  24. 2400 rem felsplateau
  25. 2410 goto100
  26.